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a foreword by 
Bob Albrecht 

The Radio Shack TRS-80 is a great machine for 
teaching l<ids how to use. program and enjoy computers. 
I've been helping l^ids ieam how to enjoy BASiC for 16 
years. For this purpose (heiping l<ids enjoy BASiC), the 
TRS-80 is the best computer i have used, especially if the 
learners are elementary school children. 



IMPORTANT NOTICE! I am not saying that Ihe 
TRS-80 is the best computer for all purposes. 
I am not saying the TRS-80 is the best overall 
educational computer. I am saying that I think the 
TRS-80 is the best computer tiiat I have used (so 
far) to teach elementary school children, grades 4, 
5 and 6, how to understand and enjoy BASIC. 



So, if you have a TRS-80, grab a bunch of kids and 
help them Ieam how to understand simple programs in 
TRS-80 BASIC. Here are ideas on how to go about it, 
including numerous short programs that many kids have 
enjoyed. Most of these programs will work in either Level I 
or Level II BASIC. A few are written in Level II; you can 
easily change them to Level I. 

Think of the following as an outline of things to do. 
You explain what is happening, answer questions, invent 
variations on my ideas and (of course!), use your own 
ideas. But don't do the typing. Let the kids do all the 
hands-on stuff. Be patient— let them make mistakes, 
correct their own mistakes, and above all, encourage 
them to EXPERIMENT! 




Oh yes, one more thing. I don't leach people how to 
program in BASIC. First, I help Ihem learn how to read and 
understand simple BASIC programs. In order to create 
something in a language, you must first understand the 
language. (That does sound reasonable, doesn't it?) Then, 
once you understand the language (or some of it), perhaps 
you can express your own original ideas in the language. 

So, I like lo help kids (and some adults) Ieam lo read 
and understand BASIC. Presto! Many of them then teach 
themselves how to use the language creatively. 




But even thos'e people who don't write world-shaking 
original programs might Ieam something else — computers 
are sure stupid, and not very mysterious. Or, people might 
Ieam to modify someone else's programs to better serve a 
personal purpose. Or team up with friends who love to write 
programs in order to create a synergistic program that 
would not otherwise exist. BASIC, in the universe of home/ 
school/personal computers, is an easy-to-understand 
starting point for learning about computers. 



BEGIN .... 



Show your eager young learners how to hook up the 
TRS-80 and turn it on. 

Show them how to clear the screen. Start each "episode" 
with a clear screen. 

Tell them about the prompt (>) and the cursor {— ). 



When you see this 
it is your turn 
to type. 







Have someone clear the screen, type her name, then 
press the ENTER key. The TRS-80 will probably type an 
en-or message. Explain that "The TRS-80 doesn't 
understand you!' Never mind — tell them not to worry 
about occasional misunderstandings; they will soon Ieam 
how to make the TRS-80 understand! 

Kids are fascinated by their names. In this article, we will 
do lots of things with names. Start with direct statements 
such as the following. You will have to remind them 
several times to press ENTER after typing a statement. 



PRINT "LUCY" 
PRINT "CHARLIE" 
PRINT "SNOOPY" 
PRINT "LUKE SKYWALKER ■ 
and so on. 



Let every kid do this. 

Now the fun begins. Have each kid enter and njn a short 
two line program which will fill the screen with her name, 
(Boys are also encouraged to do this,) 

10CLS 

20 PRINT "LUCY "; 
30 GOTO 20 

When the above program is RUN, the screen quickly fills 
up with Ihe name 'LUCY: Then the names seem lo move 
lo the right (an opiicat illusion). Experiment with names 
and with other characters. Take your time; keep it slow 
and easy. Let the kids set the pace. Don't try to lum them 
into computer phreaks, JusI let Ihem have fun leaming at 
their own speeds. 

Of course, you will show them how to interrupt a program 
by pressing the BREAK key. Also show them how to LIST 
a program and how to change only Line 20 in order to put 
a different name on the screen. 



BEWARE! In Level II BASIC, a syntax error causes 
Ihe TRS-80 lo go into Edit Mode. Press Q lo get 
out — don'l get into heavy editing this early in the 
game. 



Make it easier to change the name. Tell them about 
"boxes" such as A$, B$, etc., which can hold names or 
other strings of characters. 

10CLS 

20 LET A$ = "LUCY "- 

30 PRINT A$; 

40 GOTO 30 

Try other "boxes" such as B$, C$, N$, etc. Use single 
letter variables only; It will save you lots of time. If you are 
a "computer scientist" or "computer tiobbyist" please 
remember: most of us aren't. 

Still easier. Use the INPUT statement. 

10CLS 

20 INPUT A$ 

30 PRINT A$; 
40 GOTO 30 

Let everyone use this program. 

Slow down the action. Use an "empty" FOR-NEXT loop 
as a time delay. 



10CLS 

20 INPUT A$ 

30 PRINT A$; 

40FORZ=1TO100 

50 NEXT Z 

60 GOTO 30 



The FOR-NEXT loop (Lines 40 and 50) causes the 
TRS-80 to count from 1 to 1 00. Kids are usually surprised 
at how fast the computer can count to 1 00. Try other 
numbers (instead of 100) in the FOR statement. 

Slower: Use numbers greater than 1 00. 

Faster: Use numbers less than 100. 

Hmmm . . . how about a variable time delay? 



10CLS 
20 INPUT A$ 
30 PRINT A$: 
40 LET T = 100 
50FORZ = 1 toT 
60 NEXT Z 
70 GOTO 30 





Now change T by replacing line 40 with: 
40 LETT -200 




We can blink a name on and off. 

10CLS 

20 IN PUT A$ 

30CLS 

40 PRINT A$; 

50 LETT- 100 

60FORZ-1TOT 

70 NEXT Z 

80CLS 

90 LET T= 100 
100 FOR Z=1 TOT 
110 NEXT Z 

120 GOTO 30 



To slow down the action, makeT>100. To speed it up, 
make T< 100, 



Name ON 



Name OFF 



mmm 



Our program has two idenfical time delays. Great 
opportunity to introduce SUBROUTINES! 



4 Save room for Line 30 (Page 4) 
> Name ON 



Name OFF 



10CLS 

20 INPUT AS 

40CLS 

50 PRINT A$; 

60GOSUB100 

70CLS 
80GOSUB100 

90 GOTO 40 

100LETT = 100 
110FORZ=1 TOT 
120 NEXT Z 
130 RETURN 



Take lots of time to explain this one! 



Well, let's not wear out the upper left hand comer of the 
screen. Tell them about PRINT @ (or PRINT AT in Level I 
BASIC). In the above program, replace Line 50 witti one 
of these. In fact, do all of them, one by one. 

50 PRINT @0,A$; 
50 PRINT @32.A$; 
50 PRINT @64.A$; 
50 PRINT @500,AS; 

and so on. 



Of course, tell them that there are 1024 print positions 
numljered from to 1023. Malte a map of the screen 
showing where the print positions are located. Below is a 
handy program for putting your name where you want it 
on the screen. Explain the use of strings within INPUT 
statements. 

10CLS 

20 INPUT "WHAT IS YOUR NAME";A$ 

30 INPUT "WHERE SHOULD I BLINK IT":N 

40CLS 

50 PRINT ((iiN.A$: Name ON 

60 GOSUB 100 at position N 

70 CLS Name OFF 

80 GOSUB 100 (evetywhere) 

90 GOTO 40 

100LETT=100 
110FORZ=1 TOT 
120 NEXT Z 
130 RETURN 

As usual, take your time and make sure everyone 
understands this program. Remember, they are learning 
how to read and understand a language. The first step in 
learning how to create original stuff in a language is to 
first understand the language! 

As Tom Lehrer might say, "If you are getting bored by this 
stuff, you have only yourself to blame; you should never 
have let me begin," And so, I will reluctantly end with just 
one more program, which causes a name to scamper 
across the screen from upper left to lower right, then 
again and again and . , , 

10 CLS 

20 INPUT "WHAT IS YOUR NAME";A$ 

30FORK-0TO1023 
40 CLS 

50 PRINT («.'K,A$; 
60 NEXT K 

70 GOTO 30 

Too fast? Probably — so, you put in a time delay to slow 
down the action. 



MEANDERING .... 



So far, we've done "deterministic" things with words on 
the screen. Now, we will meander — do some random stuff 
— cause words to wander about the screen, or appear 
helter-skelter, in unpredictable non-patterns. 

One of the nicest things about the TRS-80 is the way 
the RND function works. It gives integer random numbers in 
a way that is easy to understand and use by people who are 
not math wizards. Most other BASICS give random numbers 
between and 1. 1 really can't understand why — most 
applications (especially games!) require integer random 
numbers. In most BASICs, much mind boggling math is 
required to get the desired integer random numbers. 

Desired random numbers; 1 or 2 

TRS-80; RND(2) 

Mostothers: INT(2'RND(1}) + 1 < ;- 

Desired random numbers; 1 , 2 or 3 

TRS-80: RND(3) 

Mostothers: INT(3'RND(1)) + 1 

Desired random numbers; 1 . 2, 3, 4, 5, 6 

TRS-80: RND(6) 

rwiOSt others: INT(6'RND(1)) + 1 

Desired random numbers: 0. 1 , 2, 3, 4, 5, 6, 7, 8, 9 

TRS-80: RND(10)-1 

Mostothers: INT(10*RND(1)) 

Got the idea? It goes like this. If n is a positive integer, 
then RND(n) will give random positive integers in the range, 
1 to n. Simple and neat! 




MMffl 



Bonus! RND(O) will give random numbers in the range, 
to 1 , just like all the other computers. The TRS-80 gives 
you the best of both worlds. 



IMPORTANT NOTICE! Remember, the series is 
about teaching BASIC to kids. So, the RND 
function is one of the most important elements of 
BASIC. It is one of the things that makes BASIC 
fun for kids! For ease in teaching, use the integer 
RND function. 



Experiment! 



Do some experiments. 



10CLS 

20 PRINT RND{2); 
30 GOTO 20 



10CLS 

20 PRINT RND(3); 

30 GOTO 20 



10CLS 

20 PRINT RND(6); 
30 GOTO 20 



10CLS 

20 PRINT RND(10)-1: 

30 GOTO 20 




^t^^5^H 





OK, so RND gives random numbers. So wHat? Well, lei's 
use them to put a name here, there and everywhere on the 
screen. Here for a moment, there for a moment, somewhere 
else for a moment. 



10CLS 

20X = RND(1023) 

30 PRINT @X,"LUCY"; 

40T=100 J 

50 FOR Z= 1 TO T } Time delay 

60 NEXT Z I 

70 GOTO 10 



Explain lines 20 and 30 carefully. Line 20 gives a random 
integer from 1 to 1023, inclusive, and puts this number in 
box X. Line 30 causes the name "LUCY" to be printed at 
position X on the screen. Lines 50 and 60 are a time delay. 
Change Line 40 to decrease or increase the delay. 



Faster: M^eT< 100 
Slower: Mal(eT> 100 




Let each kid change Line 30 to his or her name. Why let 
Lucy get all the glory? To make it easier, try the following 
program. 

10CLS 

20 INPUT "WHAT IS YOUR NAME";N$ 

30 CLS 

40X = RND(1023) 

50 PRINT (rj)X.m: 

60T=100 

70F0RZ=1TOT 

80 NEXT Z 

90 GOTO 30 

As usual, slowly and patiently explain what is happening, to 
your eager young learners. If they say, "What if . , , ?" then 
you say, 'Try it and find out!" 



GRAPHICS .... 



This material is intended as an outline for teachers on 
how to help kids learn to use, program and enjoy 
computers. These ideas are best used when a kid asks, 
"'How does the computer do that?;' or "How can I make the 
computer do what I want it to do?;' or "Can the computer tell 
me (whatever)?" or . . . 

So, you have a TRS-80 and the kids have played 
Hurkle, Hangman, Guess My Number, Taxman, Invasion 
Force, and countless other games. Now, they want to know 
more; they want to write game-playing programs; Uiey want 
to put interesting visual patterns on the screen; THEY 
WANT TO CONTROL THE COMPUTER. 

Why not? They control the future; so, let them control 
the computer, the tool of the future; give your kids this tool; 
let them shape il in ways unknown lo us. Then sland back 
and enjoy!! 



Patterns 



Patterns! . . . That's what we will do this time. Show 
you how to put patterns on the screen, using tiny rectangles 
of light. And. we will do some "computer art;' using the 
familiar RND function and a new BASIC statement called 
SET. 

• SET turns on a tiny rectangle of light somewhere on 
the screen. 

Somewhere on the screen? Well, of course, we must tell the 
TRS-80 where to turn on the tiny rectangle of light. 



SET (64,24) 



This far 
OVER 



This far 
DOWN 



64 OVER 



24 DOWN 



Tiny rectangle of light 



cS) 




Think of it like this; SET (OVER, DOWN) 

• OVER can be a whole number, to 127. 

• DOWN can be a whole number, to 47. 



OVER 

■0to127- 



D 
O 
W 
N 



0to47 



Experiment! 

Try these to get the hang of things. 

• Press CLEAR, then press ENTER 

• Type SET (0,0) and press ENTER 
Where is the tiny rectangle? 

• Type SET (127,0) and press ENTER 
Where is the tiny rectangle? 

• Type SET (0,47) and press ENTER 
Where is the tiny rectangle? 

• Type SET (127,47) and press ENTER 
Where is the liny rectangle? 

Now, for each of the following, guess where the rectangle 
will appear before you press ENTER. Then do it . . . press 
ENTER . , . were you close? 

• Type SET (0,24) and press ENTER 

• Type SET (127,24) and press ENTER 

• Type SET (64,0) and press ENTER 

• Type SET (64,47) and press ENTER 

• Type SET (64,24) and press ENTER 

• Type SET (32,12) and press ENTER 

Starfall 

Now, pretend that the screen is the sky. Also, pretend 
that each tiny rectangle of light is a star appearing in the 
night sky. Make It happen by storing and running this 
program. 




NEW 
100 CLS 

110OVER-RND(127) 

120 DOWN = RND(47) 
130 SET (OVER, DOWN) 
140 GOTO 110 



When you RUN this program, the sky will begin filling with 
stars. Try to find , . . constellations, shapes, patterns ... as 
stars turn on. 



Too fast? Add a time delay. 

133 T= 100 
135FORZ = 1 TOT 

137 NEXT Z 



Or. here is a trick you can use to stop the action 
momentarily while you stargaze, then continue letting 
more stars come out. 





Add these lines to the program. 

140IFINKEY$-"THEN110 
150IFINKEY$ = "'THEN150 
160 GOTO 110 



Have you added the above lines (140, 150, 160) to the 
original program? Yes , . . good! Now, RUN the modified 
program. To stop It. press any key; then, to continue, press 
any key. Now you can stop timel Or restart It! Happy 
stargazing. 



Walkabout 



Suppose you start near the center of the screen 
(OVER = 64, DOWN = 24) and walk (stagger?) at random. 
Up? Down? Left? Right? Try this program. 



NEW 

100 CLS 




110 OVER = 64 


Start near the center 


120 DOWN = 24 


of the screen 


130SET(OVER,DOWN) 


Turn on a light 


140A = HND(3)-2 




150B = RND(3)-2 




/•^YOU 


of course, can \ 



figure out what this does? 



1 60 OVER = OVER + A 

170 DOWN = DOWN + B 
180 GOTO 130 



Well, obviously (?), this 
will change OVER and 
DOWN. 



Dismay not! Try this program. It will start near the center of 
the screen and . . . meander. Eventually, it will (probably) 
stop with an en'or message. 

?FC ERROR IN 130 

That happens because we tried to wander off the screen. 
Off the screen? Well, that means: OVER became less than 
or more ttian 1 27 or DOWN became less than or more 
than 47. More about that in a minute , . , 



In the meantime, try this program. 

NEW 
100 CLS 

110X = RND(128)-1 

120Y = RND(48)-1 

130SET(X,Y) 

140SET(X.47-Y) 

150SET(127-X,Y) 

160SET(127-X,47-Y) 

170 GOTO 110 



X will mean 'over: 
Y will mean 'down.' 



Remember: the first 
number means OVER; 
the second number 
means DOWN. 




Run it for awhile, then press BREAK, RUN it again, etc. . . 

More Walkabout 

Here again is our "walkabout" program. 
100 CLS 



110OVER = 64 
120 DOWN ^24 

130SET(OVER,DOWN) 

140A = RND(3)-2 

150B = RND(3)-2 

1 60 OVER = OVER + A 
170 DOWN = DOWN + B 

180 GOTO 130 



Remember, it eventually tries to wander off the screen. 
This happens if OVER<0 or OVER> 1 27 or DOWN<0 or 
DOWN>47. When tfiis happens, the TRS-80 stops with 
the following error message: 

?FC ERROR IN 130 

Aha! Let's fix that little bug in our program. Here is our bug 
tranquilizer. Add it to the pnagram. 



163IFOVER<0THENOVER = OVER + 1 
167 IF OVER>127 THEN OVER =0VER-1 
173IFDOWN>0THEND0WN = D0WN + 1 

177 IF DOWN>47THEN DOWN = DOWN- 1 



These additions to the program will sometimes seem to 
make the screen image "bounce along" against the edge of 
the screen. Try it. As the pattern develops, what shapes do 
you see? A castle? A dragon? A flower? An angular cloud? 
Buildings on a hillside? 



Wouldn't it be nice to be able to stop 'tip . computer and look 
at the pattern on the screen? Or pboiogidpn it? Easy to do. 
Just add the following statements. 

180IFINKEY$ = " "THEN 130 
190IF1NKEY$-" "THEN 190 ELSE 130 




Now, having added the above lines 180 and 190, RUN 
the program. To stop it. press any key (except BREAK!). 
Gaze upon the pattern on the screen. Then, press any key 
(except BREAK) and the pattern will continue growing. 



INTERLUDE— AGAME 

Once upon a time, computers were veerrryyyy expensive. 
Many of them "talked" to people by means of a rather large, 
and definitely noisy, device called a . . . (suspense) . . . 
Teletype®! 

The Teletype (or TTY. as it became affectionately known) 
typed infonnation on paper. From these almost prehistoric 
times, we bring you a simple computer game enjoyed by 
multitudes of children — a game called NUMBER or, if you 
prefer, GUESS MY NUMBER. Our version of NUMBER, 
shown t)elow, is modified slightly (but only slightly) for 
TRS-80. 

100 REM"-NUMBER, A NUMBER GUESSING GAME 
FOR TRS-80 

200 REM"*TELL PLAYER ABOUT THE GAME 

210 CLS 

220 PRINT "I AM THINKING OF A NUMBER FROM 

iTOioor 

230 PRINT "GUESS MY NUMBER!!!" 

300 REM'"COMPUTER THINKS' OF A NUMBER, X 
310 RANDOM 
320X = RND(100) 

400 REM*"GET GUESS, G, COMPARE WITH X 

410 INPUT "YOUR GUESS"; G 

420IFG = XTHEN*4«<?fTt5 C^P 

430 IF G<X THEN PRINT 'TRY BIGGER " 

440 IF G>X THEN PRINT "TRY SMALLER" 

450 GOTO 410 

600 REM"'WINNER! 

610 PRINT "THATS IT!!! MY NUMBER IS" X 

620 FOR T - 1 TO 2000:NEXT T 

630 GOtb 210 



So. here is a new version of NUMBER which illustrates a 
different way to use the TV screen. 



100 REM-"NUMBER, A NUIWBER GUESSING GAME FOR TRS-80 
110 REM—COPYRIGHT 1979 BY BOB ALBRECHT 

200 REM*"TELL PLAYER ABOUT THE GAME 

210 CLS 

220 PRINT ra>268, "I AM THINKING OF A NUMBER FROM 1 TO lOO:' 

230 PRINT C"'396. "GUESS MY NUMBER! WHEN I ASK FOR YOUR" 

240 PRINT (a524. "GUESS, TYPE A NUMBER AND THEN PRESS THE" 

250 PRINT Cd-652. "BIG 'ENTER' KEY!' 

260 PRINT C*780, "PRESS THE 'ENTER' KEY AND I WILL BEGIN:' 

270 IF iNKEY$=' 'THEN 270 ELSE 310 

300 REM—COMPUTE SECRET, A RANDOM NUMBER FROM 1 TO 100 
310 RANDOM 
320SECRET = RND(100) 

400 REM"-GET GUESS. COMPARE WITH SECRET (UP TO 13 GUESSES) 

410 CLS 

420FORN = 0TO12 

430 PRINT (rr64'N." " ; 

440 INPUT ■YOUR GUESS"; GUESS 

450 IF GUESS = SECRET THEN 610 

460 IF GUESS<SECRET THEN PRINT (a 64-N + 20, "TRY BIGGER" 

470 IF GUESS>SECRET THEN PRINT &■ 64'N + 20, "TRY SMALLER" 

480 NEXT N 

500 REM"'OOPS! RAN OUT OF GUESSES — LIMIT IS 1 3 

510 PRINT "OOPS! THAT'S 13 GUESSES, MY NUMBER IS " SECRET 

520 PRINT "TO PLAY AGAIN, PRESS THE 'ENTER' KEY!' 

530 IF INKEY$ = " THEN 530 ELSE 210 

600 REM*"WINNER! WATCH THE STARS COME OUT! 

610 CLS 

620FORSTARS=1TO100 

630 PRINT (aiRND(1023), ; 

640 NEXT STARS 

650 PRINT (a'406, "MY NUMBER IS" SECRET 

660 PRINT (a)529, "YOU GOT IT IN" N + 1 "GUESSES!!!" 

670 PRINT (a'656, "TO PLAY AGAIN: PRESS 'ENTER' " 

660 IF INKEYS= " "THEN 680 ELSE 210 

999 END 




The Tandy-Radio Shack TRS-80 



Well, try the above program. It uses the screen abysmally, 
doesn't it? This program is fine for printed output, but 
terrible for TV. The printer is a one-dimensional medium; the 
TV screen is a two-dimensional medium. 



